/ Chip: 2001 Haziran / CHIP Haziran2001.iso / prog / share / 17 / dings_e.exe / Projects / Samples / In_Out / Mouse.src

< prev

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 13 24 24 44 69 6e 67 73 | 5f 50 72 6f 6a 65 63 74 |.$$Dings|_Project|
|00000010| 46 69 6c 65 3c 00 00 00 | 46 72 61 6d 65 72 61 74 |File<...|Framerat|
|00000020| 65 20 36 30 20 52 65 73 | 6f 6c 75 74 69 6f 6e 20 |e 60 Res|olution |
|00000030| 30 20 46 75 6c 6c 73 63 | 72 65 65 6e 20 30 20 44 |0 Fullsc|reen 0 D|
|00000040| 65 62 75 67 20 31 20 43 | 75 72 72 65 6e 74 4c 69 |ebug 1 C|urrentLi|
|00000050| 6e 65 20 30 ff f7 03 2f | 2f 20 2d 2d 2d 2d 2d 2d |ne 0.../|/ ------|
|00000060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 20 | 2f 2f 0d 0a 2f 2f 20 4d |------- |//..// M|
|000000a0| 41 55 53 20 44 45 4d 4f | 20 2f 20 4d 4f 55 53 45 |AUS DEMO| / MOUSE|
|000000b0| 20 44 45 4d 4f 0d 0a 2f | 2f 20 2d 2d 2d 2d 2d 2d | DEMO../|/ ------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000f0| 2d 2d 2d 2d 2d 2d 2d 20 | 2f 2f 0d 0a 0d 0a 73 74 |------- |//....st|
|00000100| 61 72 74 3a 0d 0a 0d 0a | 47 4f 53 55 42 20 43 75 |art:....|GOSUB Cu|
|00000110| 72 73 6f 72 0d 0a 20 20 | 50 52 49 4e 54 20 22 4d |rsor..  |PRINT "M|
|00000120| 49 54 20 3c 45 53 43 3e | 20 45 4e 44 45 22 2c 32 |IT <ESC>| ENDE",2|
|00000130| 30 2c 32 30 3b 0d 0a 20 | 20 4c 45 54 20 6b 6e 6f |0,20;.. | LET kno|
|00000140| 70 66 24 3d 22 4b 65 69 | 6e 65 72 2f 4e 6f 6e 65 |pf$="Kei|ner/None|
|00000150| 22 3b 0d 0a 20 20 49 46 | 20 6d 73 5f 61 3d 20 31 |";..  IF| ms_a= 1|
|00000160| 3b 20 4c 45 54 20 6b 6e | 6f 70 66 24 3d 22 4b 4e |; LET kn|opf$="KN|
|00000170| 4f 50 46 20 41 20 2f 20 | 42 55 54 54 4f 4e 20 41 |OPF A / |BUTTON A|
|00000180| 22 3b 20 45 4e 44 49 46 | 3b 0d 0a 20 20 49 46 20 |"; ENDIF|;..  IF |
|00000190| 6d 73 5f 62 3d 20 31 3b | 20 4c 45 54 20 6b 6e 6f |ms_b= 1;| LET kno|
|000001a0| 70 66 24 3d 22 4b 4e 4f | 50 46 20 42 20 2f 20 42 |pf$="KNO|PF B / B|
|000001b0| 55 54 54 4f 4e 20 42 22 | 3b 20 45 4e 44 49 46 3b |UTTON B"|; ENDIF;|
|000001c0| 0d 0a 0d 0a 20 50 52 49 | 4e 54 20 22 4d 61 75 73 |.... PRI|NT "Maus|
|000001d0| 6b 6e 6f 70 66 2f 4d 6f | 75 73 65 20 62 75 74 74 |knopf/Mo|use butt|
|000001e0| 6f 6e 3a 22 2c 31 30 30 | 2c 38 30 3b 0d 0a 20 50 |on:",100|,80;.. P|
|000001f0| 52 49 4e 54 20 6b 6e 6f | 70 66 24 2c 20 31 30 30 |RINT kno|pf$, 100|
|00000200| 2c 31 30 30 3b 0d 0a 20 | 50 52 49 4e 54 20 6d 73 |,100;.. |PRINT ms|
|00000210| 5f 78 2c 20 31 30 30 2c | 20 31 32 30 3b 20 2f 2f |_x, 100,| 120; //|
|00000220| 20 58 2d 50 6f 73 0d 0a | 20 50 52 49 4e 54 20 6d | X-Pos..| PRINT m|
|00000230| 73 5f 79 2c 20 31 35 30 | 2c 20 31 32 30 3b 20 2f |s_y, 150|, 120; /|
|00000240| 2f 20 59 2d 50 6f 73 0d | 0a 53 48 4f 57 53 43 52 |/ Y-Pos.|.SHOWSCR|
|00000250| 45 45 4e 3b 0d 0a 0d 0a | 47 4f 54 4f 20 73 74 61 |EEN;....|GOTO sta|
|00000260| 72 74 3b 0d 0a 0d 0a 2f | 2f 20 2d 2d 2d 2d 2d 2d |rt;..../|/ ------|
|00000270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000280| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000290| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002a0| 2d 2d 2d 2d 2d 2d 2d 20 | 2f 2f 0d 0a 2f 2f 20 43 |------- |//..// C|
|000002b0| 55 52 53 4f 52 3a 20 48 | 6f 6c 65 6e 26 41 6e 7a |URSOR: H|olen&Anz|
|000002c0| 65 69 67 65 6e 20 76 2e | 4d 61 75 73 70 6f 73 69 |eigen v.|Mausposi|
|000002d0| 74 69 6f 6e 20 2f 20 47 | 65 74 26 53 68 6f 77 20 |tion / G|et&Show |
|000002e0| 4d 6f 75 73 65 20 50 6f | 73 69 74 69 6f 6e 0d 0a |Mouse Po|sition..|
|000002f0| 2f 2f 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |// -----|--------|
|00000300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000320| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000330| 20 2f 2f 0d 0a 53 55 42 | 20 43 75 72 73 6f 72 3a | //..SUB| Cursor:|
|00000340| 0d 0a 0d 0a 20 4d 4f 55 | 53 45 53 54 41 54 45 20 |.... MOU|SESTATE |
|00000350| 6d 73 5f 78 2c 20 6d 73 | 5f 79 2c 20 6d 73 5f 61 |ms_x, ms|_y, ms_a|
|00000360| 2c 20 6d 73 5f 62 3b 20 | 2f 2f 20 56 61 72 69 61 |, ms_b; |// Varia|
|00000370| 62 6c 65 6e 20 6d 73 5f | 78 20 2d 20 6d 73 5f 62 |blen ms_|x - ms_b|
|00000380| 20 6d 69 74 20 4d 61 75 | 73 2d 57 65 72 74 65 6e | mit Mau|s-Werten|
|00000390| 20 66 fc 6c 6c 65 6e 0d | 0a 20 20 20 20 20 20 20 | f.llen.|.       |
|000003a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000003b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2f 2f 20 |        |     // |
|000003c0| 46 69 6c 6c 20 76 61 72 | 69 61 62 6c 65 73 20 6d |Fill var|iables m|
|000003d0| 73 5f 78 20 2d 20 6d 73 | 5f 62 20 77 69 74 68 20 |s_x - ms|_b with |
|000003e0| 6d 6f 75 73 65 20 73 74 | 61 74 65 0d 0a 20 50 52 |mouse st|ate.. PR|
|000003f0| 49 4e 54 20 22 3c 3d 22 | 2c 20 6d 73 5f 78 2c 20 |INT "<="|, ms_x, |
|00000400| 6d 73 5f 79 3b 20 20 20 | 20 20 20 20 20 20 20 20 |ms_y;   |        |
|00000410| 20 2f 2f 20 50 73 65 75 | 64 6f 2d 4d 61 75 73 70 | // Pseu|do-Mausp|
|00000420| 66 65 69 6c 20 2f 20 4d | 6f 75 73 65 20 70 6f 69 |feil / M|ouse poi|
|00000430| 6e 74 65 72 0d 0a 0d 0a | 45 4e 44 53 55 42 20 2f |nter....|ENDSUB /|
|00000440| 2f 20 43 55 52 53 4f 52 | 0d 0a 0d 0a 0d 0a       |/ CURSOR|......  |
+--------+-------------------------+-------------------------+--------+--------+